clear all

// SET MACROS
global Output "Y:/limited/Michigan_CTE/funding_change/output/figures"

global c1 "31 119 180"
global c2 "255 127 14"
global c3 "44 160 44"
global c4 "214 39 40"


// DRAW GRAPH
tw (pci 100    6.5  -15    6.5 , lcolor(gs11)) ///
   (pci 100   11.5  -15   11.5 , lcolor(gs11)) ///
   (pci -10    0.1  -10    6.4 , lcolor(gs3))  ///
   (pci -10    6.6  -10   11.4 , lcolor(gs3))  ///
   (pci -10   11.6  -10   13.4 , lcolor(gs3))  ///
   (pci   1    0      1    6.5 , lw(medthick) lc("$c1")) ///
   (pci   5.6  6.5    0.4  6.5 , lc("$c1")) ///
   (pci   5    6.5    5   11.5 , lw(medthick) lc("$c1")) ///
   (pci  10.6 11.5    4.4 11.5 , lc("$c1")) ///
   (pci  10   11.5   10   13.5 , lw(medthick) lc("$c1"))  ///
   (pci   2.5  0      2.5  6.5 , lw(medthick) lc("$c2") lp(longdash)) ///
   (pci  13.1  6.5    1.9  6.5 , lc("$c2")) ///
   (pci  12.5  6.5   12.5 11.51, lw(medthick) lc("$c2") lp(longdash)) ///
   (pci  11.9 11.51  25.6 11.51, lc("$c2")) ///
   (pci  25   11.51  25   13.5 , lw(medthick) lc("$c2") lp(longdash)) ///
   (pci   5    0      5    6.5 , lw(medthick) lc("$c3") lp(dash)) ///
   (pci  25.6  6.5    4.4  6.5 , lc("$c3")) ///
   (pci  25    6.5   25   11.45, lw(medthick) lc("$c3") lp(dash)) ///
   (pci  24.4 11.5   50.6 11.5 , lc("$c3")) ///
   (pci  50   11.5   50   13.5 , lw(medthick) lc("$c3") lp(dash)) ///
   (pci  10    0     10    6.5 , lw(medthick) lc("$c4") lp(shortdash)) ///
   (pci  10    6.5   50    6.5 , lc("$c4")) ///
   (pci  50    6.5   50   11.5 , lw(medthick) lc("$c4") lp(shortdash)) ///
   (pci  49.4 11.5  100.6 11.5 , lc("$c4")) ///
   (pci 100   11.5  100   13.5 , lw(medthick) lc("$c4") lp(shortdash)), ///
   ytitle("Reimbursement Rate") ///
   ylabel(0(10)100, nogrid angle(0)) ///
   yscale(r(-15 100)) ///
	 xtitle("Segments Completed") ///
   xlabel(0 "0" 1 "1" 2 "2" 3 "3" 4 "4" 5 "5" 6 "6" 7 "7" 8 "8" 9 "9" 10 "10" 11 "11" 12 "12" 13 "Q") ///
   xscale(r(0 13.5)) ///
	 text(-9 3.25 " Participation ", bc(white) box) ///
   text(-9 9    " Concentration ", bc(white) box) ///
   text(-9 12.5 " Completion "   , bc(white) box) ///
	 legend(order(8 "Rank Factor = 1" 13 "Rank Factor = 2.5" 18 "Rank Factor = 5" 23 "Rank Factor = 10" ) row(1) symxsize(7)) ///
   graphregion(color(white)) bgcolor(white) ///
   xsize(7.5) ysize(4)

// EXPORT GRAPH
graph export $Output/notched_formula_structure.pdf, replace
